Міністерство освіти і науки України Національний університет «Львівська політехніка» Кафедра САПР ЗВІТ про виконання лабораторної роботи №10 на тему: «Модулі в базах даних» з курсу: «Організація баз даних і знань»  Завдання до лабораторної роботи Розробка модулів. Мета Здобути навички в розробці модулів для Access на мові програмування Visual Basic. Хід роботи. В даній лабораторній роботі я розробив програму, яка обраховує різницю часу між двома введеними датами у хвилинах
Option Compare Database Public Function WorkdayTime(ByVal BeginTime As Date, ByVal EndTime As Date) As Single Dim NewEnd As Date Dim ET As Double Dim DOW As Integer Const WEEKDAYOFFHRS = 840 Const WEEKENDOFFHRS = 1440 Const FIRSTWORKDAY = vbMonday Const WORKDAYS = 5 ET = DateDiff("n", BeginTime, EndTime) NewEnd = EndTime Do While DateDiff("d", BeginTime, NewEnd) > 0 DOW = Weekday(NewEnd, FIRSTWORKDAY) NewEnd = DateAdd("d", -1, NewEnd) Loop If ET < 0 Then WorkdayTime = DateDiff("n", BeginTime, EndTime) Else WorkdayTime = ET End If End Function Висновок: На даній лабораторній роботі я ознойрмився з мовою програмування Visual Basic та розробив модуль для своєї бази даних.